home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #128 (19xx)(APS Electronic).zip / Bavarian #128 (19xx)(APS Electronic).adf / LABEL.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1989-12-06  |  29KB  |  163 lines
  1. GFA-AMIGAB
  2. SCHRIFTFARBE
  3. ALERT1
  4. KANTENTEXT
  5. EINGABE
  6. LABEL1
  7. ZWISCHENSPEICHERN
  8. ZR2    TEXTZEILE
  9. FARBEN_SETZEN
  10. AUFBAU_HAUPTSEITE
  11. TOOLBOX    TEXT_NR_1
  12. BILD_ZWISCHENSPEICHERN
  13. DRUCKEN
  14. HILFE
  15. FEHLER
  16. ZEICHENFARBE
  17. SCHRIFTFARBE
  18. LABEL
  19. NEUE_SEITE
  20. LINIE    TEXTMODUS
  21. KANTE
  22. FREIHAND    BOX_MALEN
  23. BOX_F
  24. KREIS_F
  25. KREIS
  26. FARBAUSWAHL
  27. SCHRIFTFARBE_EINSTELLEN
  28. LABEL_NR_1
  29. LABEL_NR_2
  30. LABEL_NR_3
  31. LABEL_NR_4
  32. LABEL_NR_5
  33. AUSWAHL_RAMEN    TEXTZEILE    TEXT_NR_2
  34. DISKETTEN-LABEL  F
  35.      HAUPTSEITE  F
  36.  <======= unterprogramm verlassen
  37. 0;31;42"B
  38. m "FF
  39. UNDOF
  40.  <======= unterprogr. verlassen
  41. <Systemdiskette mit Druckertreiber|in DF0:|und Drucker an ???FF
  42.  JA | NEIN !
  43. * <======= unterprogr. verlassen
  44. QUITF
  45. !Wirklich das Programm Verlassen ?F
  46. ENDEF
  47. NEINF
  48. QUITF
  49. INFOF
  50. INFOF
  51. ! <=======  unterprogr. verlassen
  52.   FARBAUSWAHL SCHRIFT  F
  53.     ZEICHENFARBE   Fs
  54.      NR.0 -->F
  55.      NR.1 -->F
  56.      NR.2 -->F
  57.      NR.3 -->F
  58.      NR.4 -->F
  59.      NR.5 -->F
  60.      NR.6 -->F
  61.      NR.7 -->F
  62.      OK   -->"FF
  63. KANTENTEXT max 40 Zeichen !F
  64. TEXT "FF
  65. )                                         F
  66. 0;30;42"B
  67. m "FF
  68. 0;31;42"B
  69. m "FF
  70. 0;32;42"B
  71. m "FF
  72. 0;33;42"B
  73. m "FF
  74. 0;34;42"B
  75. m "FF
  76. 0;35;42"B
  77. m "FF
  78. 0;36;42"B
  79. m "FF
  80. 0;37;42"B
  81. m "FF
  82. ZEICHENFARBEF
  83. SCHRIFTFARBEF
  84.   FREIHANDF
  85.    LINIEF
  86.       VIERECKFF
  87.   KREISEF
  88.        LABEL FF
  89.   TEXTEINGABEF-
  90.       DRUCKENFA
  91. INFOF
  92. QUITF
  93.   LABELSF
  94. DATEIEN / DATENF
  95. SPIELEF
  96. (  0000100101111  include        SETCOLORF
  97. (  0010001001001  VOID MAIN()   IF e$=x1$F
  98. (  1101                            ELSEIFF
  99. (  1000100010110  fprint(           ENDIFF
  100. (  1110111110110  }                 PRINTF
  101. PROGRAMMIRSPRACHENF
  102. & FRED FISH                         RPDF
  103. (                                 TornadoF
  104.                       KICKSTARTF 
  105.                   ACSFK
  106.    AUGE 4000F
  107. CACTUSF
  108.                  A.U.S.T.R.I.AF
  109. *S.A.F.E.                            TaifunF
  110. PD SOFTWAREF 
  111. ANWENDERF
  112.       TEXT max 40 Zeichen !F
  113. TEXT "FF
  114. )                                         F
  115.        WIRKLICH EINE NEUE SEITE ?F
  116. NEINF
  117. !ACHTUNG es wird alles Gel
  118. scht !!F
  119. #                 GFA BASIC ProgrammF
  120.                     LABEL PAINTFF
  121. "                 Geschrieben von :F
  122. !                  Thomas CarstensFF
  123. "                 im  November 1989F
  124. 6 Ein Programm zum erstellen von 3.5er Diskettenlabels.F
  125. 6 Dabei werden die Druckereinstellungen der PreferencesF
  126. 5 verwendet ! Das hei
  127. t : Das Programm m
  128. te mit allenFF
  129. .     Druckern f
  130. r den Amiga zusammenarbeiten .F
  131. *         Dieses Programm ist Shareware !! F
  132. 3   Wenn es Dir gef
  133. llt und Du es benutzen m
  134. chtest,Fn
  135. .     schicke bitte 10,-DM an : Thomas CarstensF
  136. 2                               Jussenhovener str.9F
  137. .                               4047 Dormagen 1F
  138. r neue Ideen und Anregungen w
  139. rde ich mich freuen !F
  140. ,          Also viel Spass ............ T.c. F
  141.         Brauchst Du Hilfe ?? F
  142. NEINF
  143. .                          Hilfe zu Label-PaintF
  144. '    BOX       TASTE             BewirktF-
  145. L Texteingabe  Links  Man kann nun mit der linken Taste eine Zeile aussuchen.F
  146. D Schriftfarbe Links  Einstellen der Farbe mit der Geschrieben wird .F
  147. J Freihand     Links  Malen so lange die linke Mousetaste gedr
  148. ckt ist. MitF
  149. L                     der rechten Mousetaste kommt man wieder ins Hauptprogr.F
  150. / Linie        Links  So wie oben nur als Linie.Ft
  151. > Viereck      Links  Wie oben nur das es nun ein Viereck ist .F
  152. 6              Rechts Das ergibt ein gef
  153. lltes Viereck.F
  154. + Kreis        Links  Kreise malen wie oben.Fs
  155. $              Rechts Kreise gef
  156. llt.F
  157. D Label        Links  Man kann sich ein Label aussuchen das dann auf F
  158. /                     das Diskettenlabel kommt. Fs
  159. 7              Rechts Das gesamte Label wird gel
  160. scht !!Fa
  161. 6                    Der Rest erkl
  162. rt sich von selbst !F
  163.